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KPR #: 5000096313 Product: 68000 PASCAL M64815-90906 01.00 

Keywords: RUN-TIME LIBRARY 

One-line description: 

Zenter_trap is not compatible with 68010. (See Chap 3, pg 3-5) 

Problem: 

When the compiler generates code for a trap procedure with parameter 
passing, it generates a call to Zenter_trap. This works for the 
68000, but not the 68010. 

Solution: 

Create a subroutine with the same name, declare it global, and link it 
before the libraries. This way the user defined routine will be used 
instead of the one in the library. 



KPR #: 1650012427 Product: 68000 PASCAL M64815-90906 01.09 

Keywords : MANUAL 

One-line description: 

With mult on real var libraries gen privileged instruction for 68010. 

Problem: 

When doing multiplication on real variables, the 68000/08/10 

compiler libraries generate a privileged instruction 

for the 68010 microprocessor, which can only run in supervisor 

mode. The following instruction needs to be changed in the 

Zreal_mul library. 

MOVE SR,D3 

Solution; 

Change the above instruction to: 

MOVE CCR,D3 

You can obtain a copy of the library sources from an HP field 
office. 
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KPR #: D200036897 Product: 68000 PASCAL M64815-90906 01.09 

Keywords: TYPE CONVERSION 

One-line description: 

Signed_8 to Unsigned_16 is incorrect. 

Problem: 

VAR 38 : SIGNED_8; 

US16 : UNSIGNED_16 ; 

BEGIN 

US16 := UNSIGNED_16(S8) ; This does a sign extend which is incorrect. 

Solution: 

None at this time. 
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Operating Manual, Model 64815AF 

Pascal/64000 Compiler Supplement 68000/68008/68010 

64815-90906, May 1984 

Your comments are important to us. Please answer this questionaire and return it to us. Circle the number that best 
describes your answer in questions 1 through 7. Thank you. 



1. The information in this book is complete: 

Doesn't cover enough 
(what more do you need?) 



12 3 4 5 



2. The information in this book is accurate: 

Too many errors 12 3 4 5 

3. The information in this book is easy to find: 

I can't find things I need 12 3 4 5 

4. The Index and Table of Contents are useful: 

Helpful 12 3 4 5 

5. What about the "how-to" procedures and examples: 

No help 12 3 4 5 

Too many now 12 3 4 5 

6. What about the writing style: 

Confusing 12 3 4 5 

7. What about organization of the book: 

Poor order 12 3 4 5 

8. What about the size of the book: 

too big/small 12 3 4 5 
Comments: 



Covers everything 

Exactly right 

I can find info quickly 

Missing or inadequate 

Very helpful 
I'd like more 

Clear 

Good order 

Right size 



Particular pages with errors? 
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Job title: 

Company: 

Address: 



Note: If mailed outside U.S.A., place card in envelope. Use address shown on other side of this card. 
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Chapter 1 

PASCAL/64000 COMPILER 



INTRODUCTION 

This compiler supplement is an extension of the Pascal/6U000 Compiler 
Reference Manual. It contains processor-dependent compiler information 
for use with 68000, 68OO8, and 68OIO microprocessors. 



NOTE 

All references to the 68OOO microprocessor in this 
memual are equally applicable to the 68OIO micro- 
processor unless otherwise noted. 



Descriptions of compiler features, options, and their uses are supplied. 
A discussion of r\an-time libraries required by the 68000 code generator 
is included. In addition, a brief discussion of the features, 
capabilities, and limitations of Pascal prograun development using the 
emulator is provided. 

PASCAL PROGRAM DESIGN 

Pascal programs should be designed to be as processor- emd 
implementation- independent as possible, yet certain concessions must be 
made when the processor has unique characteristics. For exaunple, most 
large -mainfraune computer implementations have enough memory to allocate 
a stack area and a heap for djmamic memory allocation with no prompting 
by the user. For the 68000, the user must specify the location of the 
stack, auid if needed, the location of a memory pool for dynamic alloca- 
tion routines. The following sections describe subjects related to 
progrsunming and compiling Pascal/6U000 programs for the 68OOO processor. 

HOW TO IMPLEMENT A PROGRAM 

The usual process of software generation is as follows: 

a. Create source program files using the editor. 

b. Compile source programs. 

c. Link the relocatable files. 

d. Emulate the absolute file. 

e. Debug as necessary. 

This chapter will provide insight into each of these processes. 
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THE SOURCE FILE 

The Pascal/6U000 compiler takes as input a program source file created 
with the editor. The basic form of a source file is: 



"68000" 
PROGRAM Name; 



{comments} 



CONST 



TYPE 



VAR 



PROCEDURE Procedure naune(Parameterl : Tj^e); 



BEGIN 



END; 
BEGIN 



END. 



{main progrsun code} 



When source file editing is complete, the file is ready for compilation. 
Notice in the example form that the first line of the source program 
specifies the name of the processor. This first line must always be 
present. 
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Within a Pascal source program, the compiler recognizes) only upper-case 
keywords, but identifiers may be lower case. There are five possible 
forms of compiler output: a relocatable file, a listing file (if 
specified), an assembly lemguage source file (if specified), an assembly 
symbol file, and a compiler symbol file, and a compiler symbol file. 
These output files are described in the following paragraphs. 



Relocatable file: 



If no errors were detected in the source file 
(called FILENAME : source ) , a relocatable file 
(called FILENAME :reloc) will be created. This 
file will be used by the linker to create an ex- 
ecutable absolute file. 



Listing file: 



If a listfile is specified, a listing file con- 
taining source lines with line numbers , program 
counter, level numbers, errors and expanded code 
(if specified) will be generated. 



Assembly file: 



If the ASM_FILE option is turned on anywhere in 
the source file, an assembly file (called 
ASM68000: source) will be created. This file 
will contain the Pascal source as comments and 
the assembly lainguage produced. This file may 
be assembled with the 68000 assembler. 



Assembly sjnnbol file: 



There is only one ASM68OOO source file per 
user id. On multistation systems this means that 
when two 68000 compilations are done simul- 
taneously n the same user id and both sources 
contain the $ASM_FILE$ option, only one of the 
compilations will build the ASM68OOO file. 

If no errors were detected in the file (called 
FILENAME: source) , an assembly symbol file (cal- 
led FILENAME :asmb_sym) will be created. This 
file contains information about symbols that 
were defined in the source file and is used by 
the various HP 6UOOO analysis tools during the 
debugging stage. The :asrab_sym file may be sup- 
pressed by using the $ASMB_SYM OFF$ compiler 
directive. 



Compiler symbol file: If the compiler was executed using "options com- 

p_sym", a compiler sjnnbol file (called 
FILENAME :comp_sym) will be created. The file 
contains additional high-level information about 
symbols defined in the source file and is used 
by the HP 6UOOO high-level ainalysis tools during 
the debugging stage. 
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PRODUCING PROGRAMS FOR THE 68008 PROCESSOR 

When compiling a program for the 68OO8 processor, the first line of the 
source file must contain the special compiler directive "68OO8" as shown 
below. 

"68008" 
PROGRAM NAME; 



BEGIN 



END. 



When linking for the 68OO8, all modules must be compiled or assembled 
using the "68OO8" directive or the linker will produce an error. In 
particular, the user must specify the 68OO8 rxm-time library file names, 
A5_LIB:L68008, etc., as opposed to the 68000 library files. Refer to 
"Linking" in the paragraphs below. 

When compiling for the 68OO8 processor, the compiler produces exactly 
the same instructions as for the 68OOO processor. The only difference 
is the relocatable files are identified as being for an 8-bit processor 
as opposed to a l6-bit processor. This attribute only affects the 
operation of the PROM Programmer. 



LINKING 

After all program modules have been compiled (or assembled) , the modules 
may be linked to form an executable absolute file. The compiler 
generates calls to a set of library routines for commonly used opera- 
tions such as input/output, signed and unsigned multiply and divide for 
32-bit numbers, dynsunic memory allocation, real number processing, etc. 
These routines must be linked with the program modules. 

These routines are provided in seven libraries for the 68OOO aind seven 
other libraries for the 68OO8 processor. The names of the library 
relocatable files and a description of their fiinctions is given in Table 
1-1. The library files in userid L68OOO should be linked with modules 
compiled for the 68OOO processor while the library files in userid 
L68OO8 should be linked with modules compiled for the 68OO8 processor. 

Note that there are two library files implementing the saune functions in 
all cases except for the real number library. For instance, A5_LIB and 
ABS_LIB both implement djmamic memory allocation, 32-bit arithmetic, 
etc. The "A5" and "ABS" versions of a particular library define the 
saime routines and are identical in fvinction. They differ only in the 
method used for accessing their own global variables. Refei' to the sec- 
tion on Addressing Options in Chapter 2 for more information. 



1-1+ 



Pascal/64000 Compiler Supplement 
68000/68008/68010 



Table 1-1. Relocatable Library Files 



Librairy File Name 


Global Variable 
Addressing Mode 


Functions Provided 


A5 LIB:L68000 
A5_LIB:L68008 


A5 relative 
(i.e. $COMMON$) 


Djmajnic memory allocation, 
32-bit arithmetic, string 
operations, range checking, 
prograun starting and ending. 


ABS LIB:L68000 
ABS_LIB:L68008 


absolute 
(i.e. $FAR$) 


Same as A5 LIB except for 
global variable addressing 
mode. 


REAL LIB:L68000 
REAL_LIB:L68008 


N/A (no global 
variables used) 


Real number operations. 


A5 PIOLIB:L68000 
A5_PIOLIB:L68008 


A5 relative 
(i.e. $COMMON$) 


Pascal I/O routines to imple 
ment RESET, READ, WRITE, etc 


ABSPIOLIB:L68000 
ABSPIOLIB:L68008 


absolute 
(i.e. $FAR$) 


Same as A5_PI0LIB except for 
global variable addressing 
mode. 


A5 SIMLIB:L68000 
A5_SIMLIB:L68008 


A5 relative 
(i.e. $COMMON$) 


Simulated I/O primitive 
routines for emulation 
environment. 


ABSSIMLIB:L68000 
ABSSIMLIB:L68008 


absolute 
(i.e. $FAR$) 


Same as A5 SIMLIB except for 
global variable addressing 
mode. 



You may replace one or more of the routines in the libraries with your 
own version simply by specifying your own routines at link time. 



LINKING EXAMPLE 

The linker is called and the questions asked by the linker should be 
answered as follows: 

link 

Object files: M0DULE1,M0DULE2,USER_LIB 

Library files: A5_LIB:L68000 

Load addresses: PROG,DATA,COMN,A5=000l+000H,000200OH,0000000H, 

OOOOOOOH 



Absolute file name: PROGRAM 
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Any object files that are meant to replace files in library files 
A5_LIB, ABS_LIB, REALLIB, A5_PI0LIB, ABSPIOLIB, A5_SIMLIB, or ABSSIMLIB 
should be contained in the library "USER_LIB" above. 

The nxombers specified for the PROG, DATA, COMN, and A5 values have the 
following mesming. 

PROG - Specifies the starting location of the "prograjn" memory 
area. Machine instructions and constant data are stored in 
the PROG area. The value of PROG must be an even address. 
In the exaimple above, PROG is set to UOOOH so the emulator 
will load the absolute file at UOOOH. Note that, in 
general, the address specified in PROG is not the entry 
point where the emulator will begin execution of the ab- 
solute module. 



DATA - Specifies the starting location of the DATA relocatable 
memory area. Program-level variables (i.e. any variable 
outside of a Pascal procedure or function) are normally the 
DATA area. 

The value of DATA must be an even address. In the above, 
the linker will combine the DATA segments from each of the 
relocatable files above into one and load it address 2000H. 



COMN - Specifies the starting location of the COMN relocatable 
memory area. The compiler never allocates data to the COMN 
area. The COMN area is seldom used. It is meant to provide 
for a FORTRAN- like sharable common area. 



A5 - Specifies the value that will be contained in the 68000 ad- 
dress register A5. A5 is a register used by the compiler 
for accessing program level variables when the $COMMON$ com- 
piler option is in effect. Refer to the section on program- 
level variable addressing which follows. 

The value of A5 must be an even address. A5 should be set 
to the value that will actually be loaded into address 
register 5 at rvm time. 

The following diagram shows how the absolute file would look in memory 
after linking and loading. It is assumed that the value 20C0H will be 
loaded into register A7 to define the beginning address of the hardware- 
maintained user stack. 

When library routines from the library A5_LIB:L68000 are required they 
will be linked at the end of the last user-relocatable PROG and/or DATA 
areas . 
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High Memory 



A5 LIB:L68000 code 



USER LIB code 



M0DULE2 code 



MODULEl code 



luiused 



A5_LIB:L68000 
static data 



USER LIB static data 



MODULE 2 static data 



MODULEl static data 



Stack will begin here 
and grow downward 



Low Memory 



UOOOH 



2000H 
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PROGRAM-LEVEL VARIABLE ADDRESSING 

The compiler can use any one of three addressing modes to access any 
particular program-level (i.e. not defined within a Pascal routine) 
variable. The compiler options COMMON, BASE_PAGE, and FAR are used to 
select the program-level variable addressing mode in the following 
manner. 

$COMMON$ specifies that affected variables are accessed using 
Address Register Indirect With Displacement mode. The ad- 
dress register used is A5. This is the default addressing 
mode. 

$BASE_PAGE$ specifies that affected variables are accessed using 
Absolute Short Address mode. 

$FAR$ specifies that affected variables are accessed using 
Absolute Long Address mode. 



The addressing option, COMMON, BASE_PAGE, or FAR, that is in effect when 
the keyword PROGRAM is encountered in a source file controls the ad- 
dressing mode for all pro gram -level variables defined within that 
program. After the keyword PROGRAM, the options COMMON, BASE_PAGE, and 
FAR only affect the addressing of external variables. Consider the fol- 
lowing example. 

"68000'" 
PROGRAM P; 
VAR A: INTEGER; 
$FAR$ 
$EXTVAR 0N$ 

B: INTEGER; 
$EXTVAR OFF$ 

C: INTEGER; 
BEGIN 

A:=0; { A accessed w/ Address Register Indirect With Displacement mode } 
B:=0; { B accessed w/Absolute Long Address mode } 

C:=0; { C accessed w/ Address Register Indirect With Displacement mode } 
END. 

In the example above, the $COMMON$ option, by default, is in effect when 
the keyword PROGRAM is encountered. Therefore all program-level vari- 
ables defined in this program (i.e. A ajid C) will be accessed in the 
$COMMON$ mode in this program. Note that $FAR$, specified after the 
ke3n.Tord PROGRAM, affects only the externally defined variable B. 

The $COMMON$ option causes affected variables to be accessed using the 
A5+d addressing mode. In this case, d is a sixteen bit displacement 
which occupies two bytes of memory in the machine instruction. The dis- 
placement is first sign extended to 32 bits and then added to the con- 
tents of A5 to produce the effective address of the variable. The l6 
bit displacement value allows a maximum of SUk bytes to be accessed in 
the DATA area. Because the l6 bit displacement is sign extended, the 
area of memory that can be accessed is +/- 32k bytes on either side of 
the address contained in A5. 
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The linker calculates the displacement value, d, of 4n A5+d variable 
reference in the following way. The A5 value, specified at link time, 
is subtracted from the actual address of the referenced variable. The 
result, tr\incated to l6 bits, becomes the displacement value. The 
linker will report an error if the calculated displacement is greater 
than 32767 or less than -32768. 

The library routine Zstartprogram contained in A5_LIB or ABS_LIB sets 
the value of A5 to OOOOOOOH. The linker initially sets its A5 value to 
OOOOOOOH. By default then, the prograjn may access memory locations in 
the range OOOOOOOH through 0007FFFH for positive displacement values and 
OFF8OOOH through OFFFFFFH for negative displacement values assuming a 2k 
bit address width. If one desires to locate the DATA area outside of 
the above ranges, one must specify a new value for A5 at link time and 
also link to an assembly language routine which executes code to load A5 
with the same new value. 

The $BASE_PAGE$ option causes affected variables to be accessed using 
the Absolute Short Address mode. In this case, a I6 bit absolute ad- 
dress is contained in two bytes of memory in the machine instruction. 
The 16 bit address is sign extended to 32 bits to produce the effective 
address of the variable. The I6 bit address allows a maximum of Shk 
bytes to be accessed in the DATA area. Because the I6 bit address is 
sign extended, the accessible memory locations are in the range OOOOOOOH 
through 0007FFFH for positive values and OFF8OOOH through OFFFFFFH for 
negative values assviming a 2k bit address width. The linker will report 
an error if the actual address of the referenced variable is outside 
these ranges . 

The $FAR$ options causes affected variables to be accessed using the 
Absolute Long Address mode. In this case, a 32 bit absolute address is 
contained in four bytes of memory in the machine instruction. The 32 
bit address is the sajne as the effective address. This mode allows any 
location in memory to be accessed but at the cost of longer code and 
slower execution. 

One may access a particular variable using different modes from dif- 
ferent modules. For example, one module may define a global variable 
with the $COMMON$ option in effect and access that variable using A5+d 
mode within that module. Another module may declare the saune variable 
external with the $BASE_PAGE$ or $FAR$ option in effect and access the 
variable using Absolute Short or Absolute Long mode. Of course, when 
using $COMMON$ or $BASE_PAGE$, the actual address of the variable must 
always be within the rajige that is accessible using A5+d or absolute 
short addressing modes respectively. 
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POSITION INDEPENDENT CODE AND DATA 

Several compiler options are available to the user to help him control 
the 68000 addressing modes used by the compiler when it generates code. 
The options are described in Chapter 2 under the heading Addressing 
Options. With these options it is possible for the user to postpone the 
determination of the load addresses for code and data until run time. 
This can be useful in a multiprogramming environment where djnieimic 
memory mapping is required but the hardware to do it is not available. 

If either the CALL_PC_SHORT or the CALL_PC_LONG option is used and 
either the LIB_PC_SHORT or the LIB_PC_LONG option is used, the ex- 
ecutable code generated by the compiler will be position independent, 
and may be loaded anywhere in memory at run time. However, the linker 
requires that an address be specified for PROG, and the emulation loader 
will always load the absolute file generated by the linker at that ad- 
dress for emulation purposes. 

If the $COMMON$ option is used before the keyword PROGRAM, all referen- 
ces to program level variables (variables in the static data block) will 
be accessed using the Address Register Indirect Plus Displacement ad- 
dressing mode. The address register used will be A5. The executable 
code generated by the compiler will be position independent and may be 
loaded ans^where in memory at rtm-time. Also, the data relocatable area 
may be located anywhere in memory at run time. However, the linker 
requires that addresses be specified for DATA and A5. The emulation 
loader will always load the data portion of the absolute file at the 
location specified for DATA. 

If the user loads the data to a different location, then, for correct 
execution, the user must insure that difference, DATA - A5, specified at 
link time is equal to the difference of the actual rvin time location of 
the data area minus the actual run time value of A5. 



The COMMON option is on by default at compiler initialization time. To 
cause the compiler to use absolute addressing for program level vari- 
ables use the BASE_PAGE option or the FAR option before the keyword 
PROGRAM. 



EMULATION OF PASCAL PROGRAMS 

After all modules have been compiled (or assembled) and linked, the ab- 
solute file may be executed using the emulation facilities of the Model 
6UOOO. The emulator should be configured with the memory mapped as it 
will be used in the target system. 

A program which is designed to rim in read-only-memory (ROM) may be com- 
piled with the 68000 compiler. The $SEPARATE$ option described in the 
6U000/Pascal Reference Manual is ignored by the 68OOO code generator. 
Pascal programs compiled for the 68OOO are always compiled as if the 
$SEPARATE$ option is on. Thus, RAM data will always be counted under 
the DATA coxinter, while code and constants are always counted under the 
PROG counter. 
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In the linker example above, either MODULEl or M0DULE2 has a prograjn 
block. That is, one of the modules has: 

BEGIN 

Pascal statements 

END. 

and the other module has a period with no BEGIN-END block after the pro- 
cedure declarations. The BEGIN in the module with the BEGIN-END block 
will be labeled by the compiler with the program name of that module. 
The linker establishes this name as the entry point of the absolute 
file. This prograun may be executed in the emulator by the command: 

run from <prograun name> 

where <prograun name> is the name of the prograim (MODULEl or M0DULE2 ) 
that has the BEGIN-END block. 

If two Pascal programs are linked together and both programs have 
BEGIN-END blocks, the linker will indicate a multiple transfer address. 
The following statements are equivalent: 

1. An absolute file should have zero or one specified entiy points at 
link time. 

2. When linking Pascal programs, a maximiim of one program should have 
a BEGIN-END block. 

When executing code on the emulator, if a run time error occurs, a jump 

to the monitor will be generated and a message will be displayed on the 

status line indicating the error and, in many cases, the address where 
the error occurred. 



NOTE 

It is important to remember that during emulation of 
Pascal/6U000 programs, a Pascal program may be 
debugged symbolically (using global symbols in the 
source program) or by source program line nxombers of 
the form: #n, where n is the source line number of 
an executable Pascal line. 
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Chapter 2 

PASCAL/64000 PROGRAMMING 



PROGRAMMING CONSIDERATIONS 

This chapter describes the run-time environment for 68000 Pascal/6^000 
programs. Although some parts of the run time environment are not 
necessary for every Pascal program, the prograimmer should become 
familiar with the information supplied in order to be able to use it 
when the structure of a 68000 program does require it. The specific 
areas to be discussed are stack pointer initialization, multiple module 
programs, heap initialization for use with the dynamic memory routines 
(NEW, DISPOSE, MARK, and RELEASE) and interrupt processing with Pascal 
programs . 



REGISTER ALLOCATION 

The 68000 has eight data (D) registers ajid eight address (A) registers. 
The 68000 makes use of all l6 registers. Addresses are computed only in 
the A registers while data values are computed only in the D registers . 
Data registers through 6 are used for expression evaluations. Data 
register 7 is the function value return register. In other words, if 
the value of a function is h bytes or less, the value will be returned 
in D7. Address registers 5» 6, and 7 are permanently allocated by the 
compiler for specific tasks. The user must never destroy the addresses 
contained in these registers . 

A7 is the stack pointer; it always points to the last item on the stack. 
A6 is the local frame pointer. It always points to the highest address 
of the data area of the currently executing procedure or function. 

The LINK and UNLK instructions are used by the compiler with A6 and A7 
to maintain a linked list of local data areas for nested procedure 
calls. 

A5 is the static data pointer. If the $C0MMON$ option is used to access 
variables anjrwhere in the program, then A5 must be initialized to the 
same value that was specified for A5 at link time. If the $COMMON$ op- 
tion is never used (remember that $COMMON$ is ON by default), then 
register A5 will not be used by the compiler. If the $COMMON$ is used 
for accessing program-level variables, use the library A5_LIB:L68000 
when linking. If either $BASE_PAGE$ or $FAR$ is used for accessing 
global variables, use the library ABS_LIB:L68000 when linking. 
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STACK POINTER INITIALIZATION 

The stack pointer (Address Register 7) is a hardware register maintained 
by the processor. Prior to use, however, it must be initialized by the 
user. A program that has a main code section will generate the follow- 
ing statements in the relocatable file: 

PROG_name LEA Prog_Name+8[PC] ,A0 
JMP Zs tartprogram [ PC ] 



Pascal code 



JMP Zendprogram [PC] 

The purpose of Zendprograun is to return control to the user's operating 
system upon completion. Following is an example of how Zendprogram 
might be written for use in the emulator: 



"68000" 
Zendprograjti 



GLOBAL Zendprogram 

EXTERNAL MONITOR MESSAGE, JSR ENTRY 



MOVE #MESSAGE , MONITOR_MESSAGE 

JSR JSR_ENTRY 

JMP $ 

DATA 
MESSAGE DC.B END_MESSAGE-MESSAGE-1 

ASC "End of program 
END_MESSAGE 

This will cause the message "End of program" to appear on the status 
line if the program runs to completion in the emulator. A Zendprogram 
like the above example is provided in the mn time libraries for use in 
emulation. 

The purpose of Zstartprogram is to allow the user to set up the stack 
pointer and atny other registers before executing the program. An ex- 
ample of a Zstartprogram that can be used to emulate a small program is 
shown below. For this example, we assume, when linking, that the value 
of DATA will be 1+OOOH and that the value of A5 will be OOOOH. 
Therefore, A5 must be cleared to zero so that references of the form 
d[A5] will operate correctly. The static data area will begin at UOOOH 
and go up. The stack will begin at UOOOH (predecrement addressing) and 
go down. 
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"68000" 


GLOBAL Z 


startprogr 


Zstartprogram 








MOVE.L 


#0,A5 




MOVE.L 


#0,A6 




MOVE A. L 


#lt000H,A7 




JMP 


[AO] 



1. A5 and A6 are cleared. 

2. The stack pointer is set to UOOOH. 

3. Jump to the return address in AO. 

Another approach to stack pointer initialization is to initialize the 
stack pointer and address registers 5 and 6 at load time; i.e., the 
user's operating system would initialize everything prior to entering 
the program. In this case, Zstartprogram would consist of the instruc- 
tion JMP [AO] only. Still another way to initialize the stack is to 
declare the stack as a data structure in the main program as in the fol- 
lowing example: 

(file MODULEl: source) 



VAR 



$GLOBVAR 0N$ 
$ORG lOOOOH 
STACK_AREA : ARRAY [0. 
STACK_ : SIGNED_l6, 
$END_ORG$ 
$GLOBVAR OFF$ 



.7FFFH] of SIGNED l6 



BEGIN 



END. 



For this case, Zstartprogram might be: 

MOVE #STACK_,A7 
MOVE #0,A5 
MOVE #0,A6 
JMP [AG] 
EXTERNAL STACK_ 

This would cause the address of STACK_ (20000H in this example) to be 
loaded into the stack pointer. 
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NOTE 



STACK_AREA must start on an even address and must be 
of even length. Defining STACKAREA in terms of 
SIGNED_l6's guarantees STACK_ to be on an even word 
boundary . 

The use of am absolute address for the stack in the above example gives 
the user the convenience of assigning a fixed block of memory for the 
stack. It may be better, however, to allow the compiler to actually 
preserve a relocatable data area for the stack by leaving out the $ORG$ 
and $END_ORG$ options. This will help prevent accidental reuse of the 
assigned stack area by another module. 

The following version of Zstartprogram is included in the run time 
libraries A5_LIB and ABS_LIB. It allocates a default stack of 256 words 
in the data area: 



"68000" 
Zstartprogram 



GLOBAL Zstartprogram 



MOVE A. L 


#0,A5 


MOVEA.L 


#0,A6 


LEA 


Zstack,A7 


JMP 


[AO] 


DATA 




DS.W 


256 


DS.W 


1 


END 





Zstack 



DATA TYPE CONSIDERATIONS 

Since the 68OOO supports 32-bit integers, the default size of integer is 
32 bits. If 16 bits are sufficient, however, significantly more effi- 
cient code can be generated for multiplication and division. Thus, it is 
recommended that l6-bit integers be used whenever possible. If only 
some variables are to be I6 bits , they should be declared individually 
with: 

VAR X:SIGNED_l6; 

If all integers are to be I6 bits, this can be done in the type section 
as in: 

TYPE INTEGER = SIGNED_l6; 

Using this type definition will cause all subsequent references to 
INTEGER to be treated as l6-bit signed integers instead of 32. 

Pointers ai"e allocated k bytes of memory. 

The value of false is a byte of all zeros. True is the value 1. 



2-I4 



Pascal/64000 Compiler Supplement 
68000/68008/68010 



PROCEDURES AND PARAMETERS PASSING 



All paraimeters are passed on the stack. A reference parsuneter is passed 
by pushing its address on the stack. A value parameter of k bytes or 
less is passed by pushing the value on the stack. Value parajneters 
greater than k bytes have their addresses pushed on the stack like 
reference parameters. Then at the procedure entry, the large value 
parauneters are copied into the local data area of the procedure. The lo- 
cal data of the procedure is also allocated on the stack at the proce- 
dure entry point. 

When calling a procedure, the parameters are first pushed on the stack. 
If the parameter is a byte, it is placed in the most significaoit byte of 
the word on the stack with the least significant byte untouched. 
Parameters that are longer than one word, are pushed one word at a time, 
with the word which is uppermost in memory pushed first. 

Parameters that are passed by reference (VAR parameters) have their ad- 
dresses pushed on the stack. Note that for large arrays, it is more ef- 
ficient to use a VAR parameter than a value parameter. The address is 
pushed in both cases , but the parameter will be copied in the value 
case. After all the parameters are pushed, the routine is called. Upon 
return from the routine, the compiler causes the stack pointer to be in- 
cremented in order to remove the parameters . 



STATIC LINKS 

Inner level procedures must have access to the data and parameters of 
the outer level procedures containing them. In order to do this, static 
links are used. Whenever a procedure of level 2 or greater is called, a 
static link is pushed on the stack. This value is a pointer to the 
static link of the procedure containing the procedure being called. 
Since level 1 procedures do not have static links, the static link of 
the level 2 procedure points to where the static link would be. Static 
links are pushed on before any parameters. 



FUNCTIONS 

Functions are treated like procedures except that they return a value. 
If the value fits in four bytes, it will be returned in data register J. 

If the value returned is larger than four bytes, the calling procedure 
passes an address for the return value. This address is passed after 
the last parameter immediately before the procedure is called. When in- 
crementing the stack after the call to remove the parameters, the fvinc- 
tion value return address is also removed. 
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The following saunple program illustrates some principles of stack 
organization: 



1 


■■68000" 


2 


PROGRfin TEST; 


3 




4 




5 




6 


TYPE 


7 


BIG_fiRRflY = flRRRY[0. .10] OF INTEGER; 


8 


VfiR 


9 


I1,12:INTEGER; 


10 


flRR:8IG_flRRftY; 


11 




12 


PROCEDURE PI (P1_P: INTEGER); 


13 


VfiR P1_0: INTEGER; 


14 




15 


PROCEDURE P2(P2_P: INTEGER); 


16 


VfiR P2_D; INTEGER; 


17 




18 


PROCEDURE P3(P3_P:INTEGER); 


19 


VfiR P3_D: INTEGER; 


20 




21 


BEGIN <P3> 


22 


P3_P: = 5; 


23 


END; 


24 




25 


BEGIN <P2) 


26 


P3(P2_P); 


27 


END; 


28 




29 


BEGIN (PI) 


30 


P2(P1_P) ; 


31 


END; 


32 




33 


FUNCTION L I TTLE_FUNC(F1: INTEGER): INTEGER; 


34 


BEGIN 


35 


LITTLE_FUNC :=F1; 


36 


END; 


37 




38 


FUNCTION BIG_FUNC(Fl,F2:INTEGER):BIG_flRRflY 


39 


VfiR fiRRl:BIG_fiRRflY; 


40 


BEGIN 


41 


fiRRlCFl] := F2; 


42 


BIG_FUNC := ORRl; 


43 


END; 


44 




45 


BEGIN (TEST) 


46 


Pl(Il); 


47 


11 := LITTLE_FUNC(I2); 


48 


flRR := BIG_FUNC(I1,I2); 


49 


END. 
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When executing line 22, the stack appears as follows: 

High Memory 



Contains II, 12, 
and ARR 



Procedure PI 
parameter PI P 



Return address for 
returning from PI 



Previous frame pointer 
(old A6) 



Procedure PI data area 
PI D is allocated here 



Static link 



Procedure P2 parameter 
P2 P 



Return address for 
returning from P2 



Previous frame 
pointer (old A6 ) 



Procedure P2 data area 
P2 D is allocated here 



Static link 



Procedure P3 
Parameter P3 P 



Return address for 
returning from P3 



Previous frame pointer 
(old A6) 



Procedure P3 data area 
P3 D is allocated here 



Low Memory 



A5 



-A6 



A7 
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When executing line 35? "the stack appears as follows 

High Memory 



Static data area 

Contains 11, 12, 
and ARR 






LITTLE_FUNC 
Fxinction parameter 
Fl 






Return address 
for returning from 
LITTLE_FUNC 




Previous frame pointer 
(old A6) 








Local storage for 
return value of 
LITTLE_FUNC 











A5 



a6 



A7 



Low Memory 
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When executing line i+1, the stack appears as follows; 

High Memory 



Static data area 

Contains 11, 12, 
and ARR 












Fxinction BIG_FUNC 
parameter Fl 








Fiinction BIG_FUNC 
parsimeter F2 




Address of result 
ARR 










Return address for 
returning from 
BIG_FUNC 




Previous frame pointer 
(old A6) 








Function BIG FUNG 
data area 

(ARRl and local 

storage for 
return value) 













A5 



a6 



A7 



Low Memory 



Note that for BIG_FUNC, the address of the result (ARR) is passed, since 
it is larger than four bytes. For LITTLE_FUNC, the address of the 
result is not passed as the size is only four bytes and the result is 
returned in D7. 
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MULTIPLE MODULE PROGRAMS 

Only one module in eoi absolute program file should contain a Pascal 
program with a main code section. All other modules should contain 
procedures and functions with a period at the end of the procedure 
declarations to indicate an empty program block. 

Example: 

(file MODULEl : source ) 

PROGRAM MODULEl; {this is the main module} 

CONST 

TYPE 

VAR 

• • • > 

PROCEDURE X( Parameter : Type ); EXTERNAL ; 
PROCEDURE Y; EXTERNAL; 

BEGIN 

. . . ; (main code} 

END. {period signals end of program, main code 

exists so stack initialization code is 
generated} 



NOTE 

The tremsfer address is set to cause execution to 
begin in the main code section of the program 

module . 
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(file M0DULE2: source) 



PROGRAM M0DULE2; (this module contains the procedures and 
functions used in MODULEl} 



$GLOBPROC 0N$ 
PROCEDURE X( Parameter 
BEGIN 



Type); 



END; 
PROCEDURE Y; 
BEGIN 



END; 



{The period signals the compiler that the 
prograjn has ended. Since no main code 
exists, the compiler does not generate any 
stack initialization code or linker 
transfer address.} 



STATIC DATA AREA 

The static data area is composed of the static data areas of all the 
separately compiled Pascal modules. Usually, the static data area is a 
single continuous block of memory but this need not be the case. It is 
possible, when linking, to locate the DATA (or PROG) areas of the 
various modules in several separate areas of memory. 

The $COMMON$, $BASE_PAGE$, and $FAR$ compiler options control the ad- 
dressing mode used by the 68000 to access the variables in the static 
data area. Usually, the programmer specifies that all variables in all 
modules be accessed using the same addressing mode but this need not be 
the case. It is possible for one module's variables to be accessed with 
one mode ajid a different module's variables to accessed with a different 
mode. It is also possible for a single variable to be using different 
modes in different modules. See the section on program-level variable 
addressing in Chapter 1 for more information. 



2-11 



Pascal/64000 Compiler Supplement 
68000/68008/68010 

DYNAMIC ALLOCATION HEAP INITIALIZATION 

Before using the standard procedures NEW and MARK, the block of memory 
that you wish to have managed as a dynamic memory allocation pool (the 
heap) must be initialized by calling the external library procedure: 

INITHEAP (Start_address : Pointer_type ; 
Length_in_bytes : UNSIGNED_32 ) ; EXTERNAL ; 

The procedure INITHEAP must be declared external as above. Pointer_type 
is a Pascal pointer. Start_address should point to the smallest address 
of the memory block to be used, and it must be an even address. 

Length_in_bytes must be an even value. 

For exaunple, if the block to be used is located in memory from HOOOH to 
5FFFH, the initialization should appear as follows: 

PROGRAM Test; 

CONST 

Heapsize = UNSIGNED_32(2000H) ; 

TYPE 

Pointer_type = "INTEGER; 

VAR 

$ORG = UOOOH$ 

Heapstart : INTEGER; 
$END_ORG$ 

PROCEDURE 

INITHEAP ( Start_addres s : Po inter_t jT)e ; 

Length in bytes: UNSIGNED 32); EXTERNAL; 



BEGIN (main progrsun block} 

INITHEAP(ADDR(Heapstart) , Heapsize) ; 



END, 

Twelve bytes of heap space are used when the heap space is initialized. 
Twelve bytes of heap space are also used each time the heap is marked. 
When NEW is called, the minimum memory allocated is 8 bytes, even if 
fewer bytes are required. 

Items must be allocated in an even number of bytes. The compiler en- 
sures that NEW eind DISPOSE always pass even sizes. If the user utilizes 
these procedures on his own, he must always pass even sizes. Likewise, 
INITHEAP should always be called with an even address auad an even size. 
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INTERRUPT HANDLING 



Interrupt hajidling routines may be written in Pascal using the INTERRUPT 
option. Additionally, code produced by the compiler is safely interrup- 
table as long as the interrupt driven process saves and restores the 
registers and returns with a return from exception (RTE) instruction. 
The compiler does not automatically generate the interrupt vectors for 
procedures defined as interrupt procedures . 



SET SPACE ALLOCATION 

The 68000 compiler allocates sets by bytes. The Pascal statements: 

PROGRAM TEST; VAR SI: SET OF O..3I; 

will allocate four bytes of data to the set SI. The bits in the set will 
be numbered as follows : 



SI addr 



765^3210 


15 Ik 13 12 11 10 9 8 


Byte #0 


Byte #1 



23 22 21 20 19 18 17 16 31 30 29 28 27 26 25 2U 



Byte #2 


Byte #3 
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SPECIAL OPTIONS FOR THE 68000 COMPILER 

The following options have special functions for the 68000 compiler. 



INTERRUPT 
Default OFF 

All procedures defined while the INTERRUPT option is on will be suitable 
for use as interrupt routines. On entry to the procedure, all registers 
will be saved on the stack. On exit, the registers will be restored and 
RTE is used to return instead of the normal RTS. INTERRUPT only applies 
to outer level procedures , as inner level procedures cannot be accessed 
externally and thus cannot be referenced by an interrupt vector. 
INTERRUPT procedures may not be called amd they may not have parameters . 
The value of INTERRUPT applies at the PROCEDURE heading. It is the 
user's responsibility to set up the interrupt vectors to point to the 
appropriate INTERRUPT procedures. 

OPTIMIZE 
Default OFF 

When OPTIMIZE is off, storing indirectly or into an external will cause 
the contents of certain registers to be forgotten because there is a 
possibility that their contents will be incorrect. If OPTIMIZE is on, 
these registers will not be forgotten. It is possible that the code 
generated will be incorrect, although in most cases it will be correct. 
An exaimple which produces incorrect code is shown on the following page. 
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FILE: TEST:L68000 



HP Pasc3l/64000[B . 1] 68000 code generator 



00000000 
00000000 
00000000 
00000000 
00000000 
00000004 

oooooooc 

8 00000010 

9 00000014 

00000000 
00000000 
00000004 

10 00000008 1 

00000008 

oooooooc 

11 00000010 1 

00000010 

12 00000018 1 

00000018 

13 00000020 1 

14 00000020 1 

00000020 
00000020 
00000024 
00000028 

15 0000002C 1 

0000002C 
00000030 

16 00000034 1 

00000034 

17 00000038 1 

0000003 
00000000 
00000000 
00000000 



"68000" 

PROGRftfl BftD_C00E 
$EXTENSIONS$ 
LfiBEL 1; 
VflR I : INTEGER; 
J, K: INTEGER; 
L: INTEGER; 
IP:~INTEGER; 
BEGIN 

BflD_CODE 

JSR 

LINK 

IP ;= flODR(I) 

LEfl 

MOVE , L 
J :=3; 

MOVE . L 
K ;=2; 

MOVE . L 



1: 



IP 



END. 
JMP 



:= JtK; 
BfiD_C0D0O_l 
MOVE . L 
nOD.L 
MOVE . L 

=K; 

MOVEfi.L 
MOVE . L 
:= I; 

MOVE . L 

Zendprog 
DflTfl 
BflD_CODOO_D 
DS.B 
GLOBfiL 
EXTERNfiL 
EXTERNAL 
END. 



2startprogram[PC] 
fi6,#0 

BflD_C0000_D[flS] ,ftO 
fl0,BfiD_C0D00_D+00010H[fl5] 

#3_BflO_CODOO_D+00004H[fl5] 

*2 , BfiD_C0D00_D+00008H [PIS] 



BfiD_COOOO_D*00004H[fi5] ,D0 
BflO_C0D00_D*00004HtfiS] ,D0 
D0,BflO_COO00_D[fi5] 

BflD_C0OO0_D+00010H[fi5] ,fi0 
BflD_C0D00_Ot00O08H[flS] , [flO] 

DO , BflD_C0D00_Dt0000CH [fIS] 

ram[PC] 



00014H 
Bft0_C0DE 
Zstart program 
Zendprogram 
BAD CODE 



End of compilation, number of error5= 



If OPTIMIZE is on, L will be assigned 5 instead of 2. Errors may also 
occur if two externals and/or absolutes refer to the same address. 
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Another optimization occurs when OPTIMIZE is on; forward jiimps will be 
assumed to be within 128 bytes. This affects the IF, WHILE, CASE, FOR, 
and GOTO statements and saves two bytes for each forward jump. If the 
label is out of range, an error (number 1200) will be given in pass 3- 
If this occurs, turn off OPTIMIZE arovind the line that caused the error. 
Normally, prograuns may be compiled with OPTIMIZE on without fear of 
generating incorrect code. 



SEPARATE 

Default OFF 

SEPARATE has no effect for the 68000. PROG and DATA are always 

separate . 



TRAP 
Default -1 

When a procedure heading is encountered in the source , the value of TRAP 
will be checked. If it is a value from to 15, the procedure will be 
declared as a TRAP procedure. For the option $TRAP=5$ a procedure name 
will be assigned the trap value 5- When any calls to this procedure are 
encountered in the source, the compiler will generate a TRAP 5 instruc- 
tion rather than a JSR instruction. Trap procedures may have parameters 
like any other procedure. After the value of TRAP has been assigned to 
a procedure naune, the value of TRAP is set to -1. The trap number used 
where the procedure is declared global must be the saune one used where 
the procedure is declared external. The compiler generates a call to 
Zentertrap at the entry point of a trap procedure. Trap procedures 
return via the RTE instruction. It is the user's responsibility to set 
up the trap vectors to point to the appropriate TRAP procedures. 

ADDRESSING OPTIONS 

The following three options allow the user to control the addressing 
mode for any variables defined while the EXTVAR option is on as well as 
the entire program level data block. One and only one of these options 
is always ON. The option that is ON when the kejrword PROGRAM is by the 
compiler shall control the addressing mode of all the variables defined 
in that program. After the kejrword PROGRAM, the options only affect ex- 
ternally defined variables . 

If the $COMMON$ option is used ($COMMON$ is ON by default), link with 
library A5_LIB:L68000. Otherwise, link with the library ABS LIB:L68000. 
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BASE_PAGE 
Default OFF 

When the EXTVAR option is on, all external variables defined while 
$BASE_PAGE$ is on will be accessed by the absolute short addressing 
mode. The linker will report an error if a base page variable is linked 
to an address outside the range OOOOOOOH through OOO7FFFH or OFF8OOOH 
through OFFFFFFH. Insert $BASE_PAGE$ before the program heading if ab- 
solute short addressing is desired for locally defined progreun level 
variables . 



FAR 

Default OFF 

When the EXTVAR option is on, all external variables defined while $FAR$ 
is on will be accessed by the absolute long addressing mode. Insert 
$FAR$ before the program heading if absolute long addressing is desired 
for locally defined prograun level variables . 



COMMON 

Default ON 

All external variables defined when $COMMON$ is ON will be accessed with 
the address register indirect plus displacement mode. The address 
register will be A5. Insert $COMMON$ (or nothing since $COMMON$ is ON 
by default) before the keyword PROGRAM if A5+d addressing is desired for 
locally defined program level variables. 

The linker will report an error if the calculated displacement is 
greater than 32767 or less than -32768. The displacement is equal to 
the actual address of the referenced variable minus the A5 value that 
was specified to the linker. 

The following four options allow the user to control the addressing 
modes for calling procedures and. functions. One and only one of these 
options is always on. The addressing mode used to call a procedure or 
function is determined by the setting of the options when the procedure 
or function heading is encountered. 



CALL_ABS_LONG 

Default OFF 

Procedures ajid fimctions defined while $CALL_ABS_LONG$ is on will be 
called with the absolute long addressing mode. 



CALL_ABS_SHORT 
Default OFF 

Procedures and functions defined while $CALL_ABS_SHORT$ is on will be 
called with the absolute short addressing mode. The linker will report 
an error if an attempt is made to call a procedure or function with the 
absolute short addressing mode if the procedure or function is not as- 
signed an address outside the range OOOOOOOH through 0007FFFH or 
OFF8OOOH through OFFFFFFH. 
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CALL_PC_SHORT 
Default ON 

Procedures and fiinctions defined while $CALL_PC_SHORT$ is on will be 
called using the prograjn counter plus displacement addressing mode. The 
linker will report an error if an attempt is made to call such a proce- 
dure or function whose displacement from the current progreun counter is 
greater than +- 32K bytes. 



CALL_PC_LONG 
Default OFF 

Procedures and functions defined while $CALL_PC_LONG$ is on will be cal- 
led using the program counter plus displacement + index addressing mode. 
This option should be used only when necessary because loading the index 
portion for each call is inefficient. 

The following four options allow the user to control the addressing 
modes used for calling predefined procedures and functions (i.e., NEW, 
DISPOSE, etc.). They are similar to the previous four options, but they 
are applied to each procedure or function call individually. One auid 
only one of these options is always on. 



LIB_ABS_LONG 
Default OFF 

Calls to predefined procedures and fvinctions encountered while 
$LIB ABS LONG$ is on will use the absolute long addressing mode. 



LIB_ABS_SHORT 
Default OFF 

Calls to predefined procedures and functions encountered while 
$LIB_ABS_SHORT$ is on will use the absolute short addressing mode. The 
linker will report an error if an attempt is made to call a predefined 
procedure or function with the short absolute mode and the address of 
the procedure or function is not in the range OOOOOOOH through 0007FFFH 
or 0FF8000H through OFFFFFFH. 

LIB_PC_SHORT 
Default ON 

Calls to predefined procedures and functions encountered while 
$LIB_PC_SHORT$ is on will use the program counter plus displacement ad- 
dressing mode. The linker will report an error if an attempt is made to 
call such a procedure or function and the displacement from the call is 
greater than +-32K bytes. 



LIB_PC_LONG 
Default OFF 

Calls to predefined procedures and fionctions encountered while 
$LIB_PC_LONG$ is on will use the program counter plus displacement plus 
index addressing mode. This option should be used only when necessary, 
because loading the index for each call is inefficient. 
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USER -DEFINED OPERATORS 



GENERAL 



Pascal/6U000 allows the user to redefine the meaning of certain 

operators. User defined operators are created by using the option: 

$USER_DEFINED$ during the declaration of a user tjrpe. The option, when 
used, applies to the next type definition encoiintered . 

For user defined operators, the compiler will not generate in-line code 
to perform the operations; instead, it will generate calls to user 
provided riin-time routines. The run-time routine names will be a com- 
posite of the user's type name ajid the operation being performed: 
TYPENAME_OPERATION . The first eleven characters of the user's tjrpe name 
are concatenated with an underscore and three characters identifying the 
operation. 



OPERATIONS THAT MAY BE REDEFINED 

The following is a list of operators that can be redefined associated 
with the routine that the compiler will create for the operation. 



Operat ion 



Sjrmbol 



Run -time Routine 



1. Add 

2. Negate 

3 . Subtract 
k. Multiply 

5. Divide 

6. Modulus 

7. Equal Comparison 

8. Not Equal Comparison 

9. Less Than or Equal 

to Comparison 

10. Greater Than or Equal 

to Comparison 

11. Less Thein Comparison 

12. Greater Than Comparison 



/ or DIV 
MOD 



< t j^ensune >_ADD 

< typename >_NEG 

< typename >_SUB 

< t5^ename >_MUL 
< t j^ename >_DI V 

< t jrpename >_MOD 

< typename >_EQU 

< t jrpename >_NEQ 

< typename >_LEQ 

< typenajne >_GEQ 

< tj^jename >_LES 
< typename > GTR 
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The compiler will provide the user with a Store routine. The 68000 
compiler will use a mult i -byte move loop for types larger thain four 
bytes , or a regular move for types smaller than four bytes . 



PARAMETERS FOR USER DEFINED OPERATIONS 

For the 68OOO, the parameters are passed on the stack as follows: 

1) The address of the first operand is pushed on the stack. 

2) The address of the second operand is pushed on the stack. 

3) The address of the result is pushed on the stack if the result 
is larger than U bytes. Otherwise, the compiler expects the 
result to be returned in data register J. 

Negate has only one operauid and a result. 

Relational operations will not pass an address for the result. Instead, 
a Boolesoi value should be returned in data register 7 as follows: 

True: D7 set to 1 
False: D7 set to 

User routines may be written in Pascal. For example: 

FUNCTION REAL_MUL (VAR OPERANDI , OPERAND 2 : REAL ): REAL ; (where the 
tj^e REAL has been defined by the user) 

FUNCTION REAL LES (VAR OPERANDI , 0PERAND2 : REAL ): BOOLEAN ; 



NOTE 

All parameters are passed by reference (VAR para- 
meters). Functions with result values smaller than 
5 bytes return the result value in 07- 

The following example is an expanded listing demonstrating use of a user 
type "REAL". 
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FILE: USER_T:ZZ 



HP Pascal/64000 [B. 1] 68000 code generator 



1 


00000000 1 


"68000" 








EXTERNfiL 


REl 






EXTERNfiL 


RE2 






EXTERNAL 


RE3 






EXTERNfiL 


SEMftPHORE 


2 


00000000 1 


$EXTENSIONS*$ 




3 


00000000 1 


PROGRfifl USER_TYPE_DEnO; 


4 


00000000 1 


TYPE 




5 


00000000 1 


$USER_DEFINEO$ 




6 


00000000 1 


REfiL = 




7 


00000000 1 


RECORD 




8 


00000000 2 


MflNTISSfl:PlRRfiY[0. .2] OF BYTE; 


9 


00000000 2 


EXPONENT :BYTE; 


10 


00000000 2 


END; 




11 


00000000 1 






12 


00000000 1 


VflR 




13 


00000000 1 


$EXTVflR + $ 




14 


00000000 1 


REl,RE2,RE3:REfiL; 


15 


00000000 1 


SEhfiPHORE:BOOLEflN; 


16 


00000000 1 


BEGIN 






00000000 


USER_TYPE_DEnO 




00000000 


JSR 


Z5tartprogram[PC] 




00000004 


LINK 


fi6,«-4 


17 


00000008 1 


RE1:=RE2 - RES * REl; 




00000008 


PEfi 


RE3 




oooooooc 


PEft 


REl 




00000010 


JSR 


REfiL_MUL[PC] 




00000014 


BDDQ.L 


«8,fi7 




00000016 


PEP 


RE2 




OOOOOOlfi 


nOVE.L 


07, -4 [06] 




OOOOOOIE 


PEfl 


-4[fi6] 




00000022 


JSR 


REflL_SUBtPC] 




00000026 


fiDDQ.L 


#8,fl7 




00000028 


nOVE . L 


D7,RE1 


18 


0000002C 1 


IF -REl < RE2 


THEN 




0000002C 


PEfi 


REl 




00000030 


JSR 


REflL_NEG[PC] 




00000034 


fiDOQ . L 


#4,fl7 




00000036 


hOVE . L 


D7,-4[ft6] 




0000003fi 


PEfi 


-4[fi6] 




0000003E 


PEfi 


RE2 




00000042 


JSR 


REftL_LES[PC] 




00000046 


HDDQ.L 


#8,fi7 




00000048 


TST.e 


D7 




0000004fi 


BEQ 


USER_TY00_L1 


19 


0000004E 1 


REl :=RE2; 






0000004E 


MOVE . L 


RE2,RE1 




00000054 


USER_TY00_L1 




20 


00000054 1 


SEMfiPHORE := 1 


?E1 <= RE2; 




00000054 


PEfi 


REl 




00000058 


PER 


RE2 




oooooosc 


JSR 


REflL_LEQ[PC] 
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00000060 


PIDOQ . L 


#8,A7 


00000062 


MOVE.B 


D7, SEMAPHORE 


21 00000066 1 


END. 






UNLK 


A6 


00000066 


JMP 


Zendprogram[PC] 


00000000 


DflTfi 




00000000 


USER_TYOO_D 




00000000 


DS.B 


OOOOOH 




GLOBfIL 


USER_TYPE_DEMO 




EXTERNAL 


REfiL_NEG 




EXTERNPIL 


REAL_SUB 




EXTERNfiL 


REAL_nUL 




EXTERNfiL 


REAL_LEQ 




EXTERNAL 


REAL LES 




EXTERNAL 


Zst artprogram 




EXTERNAL 


Zendprogram 




END 


USER TYPE DEMO 



End of compilation, number of error5= 



PASS 2 ERRORS 

Pass 2 errors will be displayed on the screen with the message: 

LINE # <line number >--PASS2 ERROR # <Pass2 error number> 

In addition, if a listing file has been indicated for the 
compilation, the compiler will indicate pass 2 errors where they 
occurred in the listing. It will also list the meaining of 
each error. 

Pass 2 error numbers will always be >=1000. Errors with numbers 
between 1000 and 1099 are fatal errors . Errors with numbers 
>=1100 are non-fatal errors. 

Pass 2 will stop generating code after a fatal pass 2 error. If 
a listing file has been indicated for the compilation, pass 3 
will give you a listing with errors. Non-fatal errors are output 
to the display and to the listing file (if one exists), but 
compilation continues after appropriate action has been taken to 
correct the error. A list of pass 2 errors is given in Table 2-1. 



2-22 



Pascal/64000 Compiler Supplement 
68000/68008/68010 

Table 2-1. 68000 Pass 2 Errors 

1000 - "Out of memory" 

The 68000 code generator has run out of memory, break up your program 
and recompile. This error can also occur if there is a bug in the 
compiler itself. If you feel that you have not used up the entire 
symbol table, contact Hewlett-Packard. 

1001 - "This error can't possibly occur #1" 
Contact Hewlett-Packard. 

1002 - "Size error" 

A size larger than the maximum size allowed for a type has been 
detected. 

1003 - "This error can't possibly occur #2" 
Contact Hewlett-Packard. 

lOOU - "Type error" 

An operation with an incorrect type of operand has been detected; for 
example, a negation of an tinsigned value. 

1005 - "Un implemented feature" 

You have used a feature of Pascal that has not been implemented in 
the 68000 code generator. 

1006 - "Compiler error. Contact Hewlett-Packard" 

This error should never occur. Please report this error to 
Hewlett-Packard as soon as possible. 

1008 - "All data registers are active" 

Even though the 68OOO has 8 data registers, it is still possible to 
write an expression that will require more. Break up the expression 
and recompile. 

1009 - "All address registers are active" 

The compiler computes addresses in address registers AO - Ak. You 
have succeeded in writing an expression that requires computation of 
more thaoi 5 addresses. Break up the expression and recompile. 

1100 - "Bounds error" 

An attempt was made to store a value into a result which was too 
small; for example assigning 300 to a byte. This error will occur if 
the $RANGE$ option is on. 

1103 - "Interrupt procedure must not have parameters" 
An interrupt procedure can not have parameters. 

IIOI4 - "Interrupt procedure call not allowed" 

An interrupt routine caui only be accessed through an interrupt vec- 
tor, since it will return with an RTE instead of an RTS. 

1105 - "Data size too large" 

More thsui 32K bytes of data have been allocated for this procedure. 
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1106 - "Trap or interrupt routine may not be a function" 
Only procedures may be trap or interrupt routines. 

1107 - "Data counter overflow" 

The DATA section has become larger than 32K bytes. 

1108 - "Trap number must be to 15" 

The 68000 has 16 trap vectors nvunbered to I5. 

1113 - "Program counters do not agree" 

If this error occurs before amy other error then it means there is a 
bug in the compiler - contact Hewlett-Packard. If this error occurs 
with some other error, ignore it. 

1200 - "Long range error; turn off OPTIMIZE for this line" 

The compiler has tried to generate an 8-bit jump where a l6-bit jump 
is required. Turn off the OPTIMIZE option around the source line 
where the error is reported, and recompile. 
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Chapter 3 

RUN-TIME LIBRARY SPECIFICATIONS 



INTRODUCTION 

This chapter describes the rim-time library routines needed to execute 
programs compiled by the Pascal/6U000 compiler for the 68OOO/68OIO and 
68008 microprocessors. There are seven libraries provided for the 
68000/68010 and seven libraries for the 68OO8 processor. The seven 
libraries for the 68OOO/68OIO are identical to the libraries for the 
68008 except tor the processor najne used when the libraries were 
produced. All library files for the 68OOO/68OIO processor are in userid 
L68OOO, while library files for the 68OO8 processor are in userid 
L68OO8. 

Pascal I/O functions are provided by the libraries A5_PIOLIB:L68000, 
ABSPIOLIB:L68000, A5_PIOLIB;L68008, and ABSPIOLIB:L68008. A complete 
description of the library routines is contained in the Pascal/6U000 
Reference Manual. A5_PI0LIB and ABSPIOLIB define the same routines and 
are identical in function except that A5_PI0LIB uses A5 + d addressing 
to reference global data while ABSPIOLIB uses absolute addressing. 

Simulated I/O functions for the emulation environment are provided by 
A5_SIMLIB:L68000, ABSSIMLIB:L68000, A5_SIMLIB:L68008, and 
ABSSIMLIB:L68008. A complete description of the library routines is 
contained in the Pascal/6U000 Reference Manual. A5_SIMLIB and ABSSIMLIB 
define the same routines and are identical in fiinction except that 
A5_SIMLIB uses A5 + d addressing to reference global data while 
ABSSIMLIB uses absolute addressing. 

Real number operations are provided by REAL_LIB:L68000 and 
REAL_LIB:L68008. The operation of these routines is described later in 
this chapter. 

Djmajnic memory allocation, 32-bit arithmetic, string, and other opera- 
tions are provided by A5_LIB:L68000, ABS_LIB:L68000, and ABS_LIB:L68008. 
The operation of these routines is described later in this chapter. 
A5_LIB and ABS_LIB define the sajne routines and are identical in fvinc- 
tion except that A5_lib uses A5 + d addressing to reference global data 
while ABS_LIB uses absolute addressing. 

Usually, prograjtimers use one access method, COMMON, BASE_PAGE, or FAR in 
all separately compiled modules of a program. In this case, if use 
$C0MM0N$ ($C0MM0N$ is ON by default) for accessing program-level vari- 
ables, link to the "A5_" versions of the various libraries. Otherwise, 
if your program uses $BASE_PAGE$ or $FAR$, link to the "ABS" versions of 
the libraries. If you mix accessing modes, you can use either library. 
If you use the "A5_" versions, you must insure that the rim-time value 
of A5 is equal to the value of A5 specified at link time. 
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DYNAMIC MEMORY ALLOCATION 



Pascal/6U000 supports dynamic allocation ajid deallocation of storage 
space through the procedures NEW, DISPOSE, MARK, RELEASE, INITHEAP, and 
INCREASEHEAP. 



INITHEAP 

The user declares a block of memory to be used as the memory pool or 
heap by calling: INITHEAP (Start_address:Pointer_type; 
Length_in_bytes:UNSIGNED_32). The procedure, INITHEAP, must be declared 
EXTERNAL in the declaration block of a program. The resultauit heap will 
be 12 bytes smaller thain length in bytes . 



NEW 

The procedure NEW (Pointer : Pointer_to_type) is used to allocate space. 
The procedure, NEW, searches for available space in a free-list of as- 
cending size blocks. When a block is found that is the proper size or 
larger, it is allocated and any space left over is returned to the free- 
list in a new place corresponding to the size of the leftover block. A 
minimum of 8 bytes is allocated even when fewer than 8 bytes are 
required . 



DISPOSE 

The procedure DISPOSE (Pointer : Pointer_to_type) is exactly the reverse 
of the procedure NEW. It indicates that storage occupied by the indi- 
cated variable is no longer required. 



MARK 

The procedure MAFJK (Pointer : Pointer_to_t3rpe) marks the state of the 
heap in the designated variable that may be of any pointer type. The 
variable must not be subsequently altered by assignment. 



RELEASE 

The procedure RELEASE (Pointer : Pointer_to_type) restores the state of 
the heap to the value in the indicated variable. This will have the ef- 
fect of disposing all heap objects created by the NEW procedure since 
the variable was marked. The variable must contain a value returned by a 
previous call to MARK; this value may not have been passed previously as 
a parauneter to RELEASE. 



3-2 



Pascal/64000 Compiler Supplement 
68000/68008/68010 



32-BIT UNSIGNED ARITHMETIC 



Zunsmult - Unsigned 32-bit multiply 

FUNCTION Zvinsmult(Pl,P2: UNSIGNED 32) :UNSIGNED_32; Multiplies the un- 
signed 32-bit number in PI by the unsigned 32-bit number in P2. The 
32 -bit result is returned in D7. Dunsmult is the same as Zunsmult ex- 
cept that a TRAPV instrriction will be executed in Dunsmult if an over- 
flow occurs. Dunsmult will be called instead of Zunsmult if the DEBUG 
option is on when a multiply is encountered. Zunsmult and Dunsmult pop 
the parameters off the stack before returning. 



Zmult - Signed 32-bit multiply 

FUNCTION Zmult(Pl,P2: UNSIGNED_32) : UNSIGNED_32; Multiplies the 32-bit 
number in PI by the signed 32-bit nvimber in P2. The signed 32-bit 
result is returned in D7. Dmult is the same as Zmult except that a 
TRAPV instruction will be executed in Dmult if an overflow occurs. 
Dmult will be called instead of Zmult if the DEBUG option is on when a 
multiply is encountered. Zmult aind Dmult pop the parameters off the 
stack before returning. 



Zunsdiv - Unsigned 32-bit divide 

FUNCTION Zunsdiv(Pl,P2:UNSIGNED_32):UNSIGNED_32; Divides the unsigned 
32-bit number in PI by the unsigned 32-bit number in P2. The 32-bit 
result is returned in D7. A zero divide exception will be executed if 
division by zero is attempted. Zunsdiv pops the parameters off the stack 
before returning. 



Zdiv - Signed 32-bit divide 

FUNCTION Zdiv(Pl,P2:SIGNED_32):SIGNED_32; Divides the signed 32-bit num- 
ber in PI by the signed 32 -bit number in P2. The signed 32-bit result 
is returned in D7. A zero divide exception will be executed if division 
by zero is attempted. Zdiv pops the parajneters off the stack before 
returning. 



Zmods - Signed 32-bit modulus 

FUNCTION Zmods ( PI, P2:SIGNED_32): SIGNED_32; Computes PI MOD P2 using 
Zdiv. The 32-bit signed modulus is returned in D7. Zmods pops the para- 
meters off the stack before returning. 



Zmodu - Unsigned 32-bit modulus 

FUNCTION Zmodu(Pl,P2:UNSIGNED_32):UNSIGNED_32; Computes PI MOD P2 using 
Zvinsdiv. The 32 -bit unsigned modulus is returned in D7. Zmodu pops the 
parameters off the stack before returning. 
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STRING OPERATIONS 



Zstr comp - String compare 

PROCEDURE Zstr_comp(VAR PI, P2: STRING ) ; Compares the strings PI and P2. 
This procedure sets the 68000 condition codes to indicate the result of 
the comparison. Zstr_comp pops the parameters off the stack before 
returning. 



Zchar str comp - Character to string compare 

PROCEDURE Zchar_str_comp(VAR Plrstring; P2:char); Compares the character 
P2 to the string PI. The character is treated as a string of length 1, 
and the comparison made as in Zstr_comp, although Zstr_comp is not used. 
Zchar str comp pops the paraimeters off the stack before returning. 



Zstr move - String move 

PROCEDURE Zstr_raove(VAR FROM,TO: STRING) ; This procedure is called to 
move a string from one address to another. The run time length of the 
string is not checked. Zstr_move pops the parameters off the stack 
before returning. 



Dstr move - String move with length check 

PROCEDURE Dstr_raove(VAR FROM, TO: STRING; LENGTH : SIGNED_l6 ) ; When the RANGE 
option is on, this procedure is called in place of Zstr_move to move a 
string. If the run time length of the string being moved is greater then 
the length of the block provided, a bounds violation is generated. 
Dstr_raove pops the parauneters off the stack before returning. 



String equality and inequality in the PASCAL compiler are determined by 
the following rules: 

a. Two strings are equal if their lengths are equal and they are 
equal character by character. 

b. The inequality of two strings is determined at the first character 
where they differ. If all characters are equal then the longest 
string is the greater of the two strings . 
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OTHER LIBRARY ROUTINES 



Zenter trap - Trap procedure entry 

A Pascal procedure may be declared to be a TRAP procedure by placing the 
option $TRAP=n$ immediately before the procedure heading. The value of n 
is a niimber in the rainge O..I5. The compiler will generate a TRAP n in- 
struction rather than calling the procedure whenever the procedure is 
called in the Pascal source. The procedure may have parameters. If the 
procedure has pareimeters , Zenter_trap will be called to copy the para- 
meters on to the system stack. TRAP procedures exit with the RTE 
instruction. 



Zstartprogram - Run time environment initialization 

This procedure is called at the beginning of the program block. It 
provides the user with a place to initialize registers before beginning 
a program. The user will normally want to provide his own version of 
Zstartprogram. The version provided clears A5 and A6 and declares a 
default stack of 256 words . 



Zendprogram - Run time environment cleanup 

This procedure is jumped to at the end of the program block. Its purpose 
is to display the message "End of program" on the status line when a 
program rxuis to completion during emulation. When a program is executed 
in an environment where emulation is not used, the user must provide his 
own version of Zendprogram for the purpose of returning control to his 
operating system. 



Zcase error - Unspecified case value handler 

This procedure is called whenever the computed value of a case expres- 
sion is not one of the values specified in the case statement. Its pur- 
pose is to display the message "Case value at XXXX", where XXXX is the 
address where the case value error was detected. The error message is 
displayed on the status line during emulation. When the program is 
created in an environment where the emulator is not used, the user must 
provide his own version of Zcase error. 
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Dcase error - DEBUG unspecified case value handler 

This procedure is called whenever the computed value of a case expres- 
sion is not one of the values specified in the case statement auid the 
DEBUG option is on. Its purpose is to display the message "Bad case 
value in D6 at XXXX" , where XXXX is the address where the case value er- 
ror was detected. The error message is displayed on the status line 
during emulation. Data register 6 contains the unaltered case value. 
When the program is executed in an environment where the emulator is not 
used, the user must provide his own version of Dcase_error. 



Zchk - Signed range checking 

PROCEDURE Zchk(VALUE,LOW,HIGH:SIGNED_32); This procedure is called to 
perform range checking of 32-bit signed integers, when the RANGE option 
is on. If the value being checked is not in remge the message "Signed 
range error at XXXX", where XXXX is the return address for Zchk, is dis- 
played on the status line. Zchk pops the parameters off the stack before 
returning. When a prograjti is executed in an environment where the 
emulator is not used, the user must provide his own version of Zchk. 



Zunschk - Unsigned range checking 

PROCEDURE Zunschk(VALUE,LOW,HIGH:UNSIGNED_32); This proceudre is called 
to perform range checking of 32-bit unsigned integers, when the RANGE 
option is on. If the value being checked is not in range the message 
"Unsigned rauige error at XXXX", where XXXX is the return address of 
Zxmschk, is displayed on the status line. Zunschk pops the parameters 
off the stack before returning. When a program, is executed in an en- 
vironment where the emulator is not used, the user must provide his own 
version of Zunschk. 



NOTE 

The declarations in the above procedures are shown 
only to indicate the calling sequence. Only 
INITHEAP should be declared external if memory 
management is used. 
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FLOATING POINT OPERATION 

The compiler handles operations on operands of type REAL or LONGREAL by 
generating calls to routines contained in the library REAL_LIB:L68000. 
Although the routines in REAL_LIB are written in assembly language, they 
can be thought of as Pascal functions, passing pareimeters and the result 
according to the conventions described in chapter 2 linder Fiinctions. 
Individual routines or the entire library may be replaced with routines 
conforming to the following Pascal function descriptions: 

Type REAL 

Type REAL is a 32-bit, IEEE format, floating point number. 

Zreal_abs - result := ABS(OP); 

FUNCTION Zreal_abs( OP: REAL): REAL; 

Zreal_add - result := OPl + 0P2; 

FUNCTION Zreal_add( OPl, 0P2: REAL) :REAL; 

Zreal_atan - result := ARCTAN(OP) ; 

FUNCTION Zreal_atan ( OP : REAL ) : REAL ; 

Zreal_cos - result := COS(OP); 

FUNCTION Zreal_cos (OP: REAL) :REAL; 

Zreal_div - result := 0P1/0P2; 

FUNCTION Zreal_div( OPl, 0P2: REAL) :REAL; 

Zreal_equ - result := OPl = 0P2; 

FUNCTION Zreal_equ (OPl , 0P2 :REAL ) : REAL ; 

Zreal_exp - result := EXP(OP) ; 

FUNCTI ON Zreal_exp ( OP : REAL ) : REAL ; 

Zreal_geq - result := OPl >= 0P2; 

FUNCTI ON Zreal_geq ( OPl , 0P2 : REAL ) : REAL ; 

Zreal_gtr - result := OPl > 0P2; 

FUNCTION Zreal_gtr ( OPl , 0P2 : REAL ) : REAL ; 

Zreal_leq - result := OPl <= 0P2; 

FUNCTION Zreal_leq ( OPl , 0P2 : REAL ) : REAL ; 

Zreal_les - result := OPl < 0P2; 

FUNCTION Zreal les (OPl, 0P2: REAL) : REAL; 
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Zreal_ln - result := LN(OP) ; 

FUNCTION Zreal_ln( OP: REAL): REAL; 

Zreal_mul - result := OPl * 0P2; 

FUNCTION Zreal_mul(0Pl,0P2:REAL) :REAL; 

Zreal_neg - result := -OP; 

FUNCTION Zreal_neg ( OP : REAL ) : REAL ; 

Zreal_neq - result := OPl <> 0P2; 

FUNCTION Zreal_neq( OPl, 0P2: REAL) :REAL; 

Zreal_round - result := ROUND ( OP ) ; 

FUNCTION Zreal_round (OP : REAL ) : REAL ; 

Zreal_sin - result := SIN(OP); 

FUNCTION Zreal_sin(OP:REAL):REAL; 

Zreal_sqrt - result := SQRT(OP); 

FUNCTION Zreal_sqrt(OP:REAL):REAL; 

Zreal_sub - result := OPl - 0P2; 

FUNCTION Zreal_sub ( OPl , 0P2 : REAL ) : REAL ; 

Zreal_trvinc - result := TRUNC(OP); 

FUNCTION Zreal trvmc (OP: REAL ): REAL; 



Type LONGREAL 

Type LONGREAL is a 6i*-bit, IEEE format, floating point number. 



Zlongreal_abs - result := ABS(OP); 

FUNCTION Zlongreal_abs ( OP : LONGREAL ) : LONGREAL ; 

Zlongreal_add - result := OPl + 0P2; 

FUNCTION Zlongreal__add ( OPl , 0P2 : LONGREAL ) : LONGREAL ; 

Zlongreal_atan - result := ARCTAN(OP) ; 

FUNCTION Zlongreal_atan (OP : LONGREAL ) : LONGREAL ; 

Zlongreal_cos - result := COS(OP); 

FUNCTION Zlongreal_cos ( OP : LONGREAL ) : LONGREAL ; 

Zlongreal_div - result := 0P1/0P2; 

FUNCTION Zlongreal d iv( OPl, 0P2: LONGREAL ): LONGREAL; 
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Zlongreal_equ - result := OPl = 0P2; 

FUNCTION Zlongreal_equ (OPl , 0P2 : LONGREAL ) : LONGREAL ; 

Zlongreal_exp - result :=EXP(OP); 

FUNCTION Zlongreal_exp ( OP : LONGREAL ) : LONGREAL ; 

Zlongreal_geq - result := OPl >= 0P2; 

FUNCTION Zlongreal_geq (OPl , 0P2 : LONGREAL ) : LONGREAL ; 

Zlongreal_gtr - result := OPl > 0P2; 

FUNCTION Zlongreal_gtr( OPl, 0P2: LONGREAL) : LONGREAL; 

Zlongreal_leq - result := OPl <= 0P2; 

FUNCTION Zlongreal_leq( OPl, 0P2: LONGREAL) : LONGREAL; 

Zlongreal_les - result := OPl < 0P2; 

FUNCTION Zlongreal_les (OPl , 0P2 : LONGREAL ) : LONGREAL ; 

Zlongreal_ln - result := LN(OP); 

FUNCTION Zlongreal_ln (OP : LONGREAL ) : LONGREAL ; 

Zlongreal_mul - result := OPl * 0P2; 

FUNCTION Zlongreal_mul ( OPl, 0P2: LONGREAL ): LONGREAL; 

Zlongreal_neg - result := -OP; 

FUNCTION Zlongreal_neg (OP: LONGREAL ): LONGREAL; 

Zlongreal_neq - result := OPl <> 0P2; 

FUNCTION Zlongreal_neq ( OPl , 0P2 : LONGREAL ) : LONGREAL ; 

Zlongreal_round - result := ROUND(OP); 

FUNCTION Zlongreal_round( OP: LONGREAL) : LONGREAL; 

Zlongrealsin - result := SIN(OP); 

FUNCTION Zlongreal_s in (OP: LONGREAL ) : LONGREAL ; 

Zlongreal_sqrt - result := SQRT(OP); 

FUNCTION Zlongreal_sqrt ( OP : LONGREAL ) : LONGREAL ; 

Zlongreal_sub - result := OPl - 0P2; 

FUNCTION Zlongreal_sub( OPl, 0P2: LONGREAL) :L0NGREAL; 

Zlongreal_trunc - result := TRUNC(OP); 

FUNCTION Zlongreal trunc ( OP : LONGREAL ): LONGREAL ; 



3-9 



Pascal/64000 Compiler Supplement 
68000/68008/68010 



3-10 



Appendix A 

RUN-TIME ERROR DESCRIPTIONS 



When emulating with the monitor linked in, riin-time errors will be dis- 
played on the status line. The progreim will jiimp to the monitor and the 
message: 68000 Rvuining ...in monitor eeeeeeeeeeeeeeeeeeeee at XXXXXX 

where: XXXXXX represents the next address after the call to the 



error routine, and eeeeeeeeeeeeeeeeeeeee is ain explanation of the error. 

Descriptions of possible run-time errors are listed as follows; 

Overflow 

This error occurs when DEBUG is on. An arithmetic operation caused an 

overflow. 

Bounds error 

This error occurs when RANGE is on. When RANGE is on, it will occur if 
an assignment is made which is outside the bounds specified in the dec- 
laration section. 

Case error 

The case expression evaluated to a value not specified by the case 
statement, and there was no OTHERWISE statement. If DEBUG was on, the 
unmodified value will be in D6. 

Divide by zero 

A division by zero was detected. 

Illegal Instruction 

The processor attempted to execute an illegal opcode. 

I/O error NN 

An error occurred in one of the Pascal I/O library routines. The error 
code NN describes the nature of the error and is defined in the 
Pascal/6H000 Reference Manual. 
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Memory error #X 

An error occurred during dynamic memory allocation (NEW, DISPOSE, MARK, 

and RELEASE). X indicates errors as follows: 

0: Heap length too small (call INITHEAP with larger number for 
size of heap) . 

1: Heap has not been initialized (call INITHEAP before first use 
of NEW or MARK. 

2: No free space in current mark. Space may exist in previous 
marks but is not available to the keyword NEW. 



No block large enough to allocate but smaller blocks may exist. 

Pointer variable points outside of heap. 

No free space in heap. 

Unable to mark, no block large enough. 

Attempted to release mark that does not exist. 



The address shown with a memory error gives the call to the memory 
routine, not the call to the error routine. The error nvimber X is 
passed as a byte parajmeter to MEMERR. 



End of prograun 

Not actually an error; this message is displayed when the program ter- 
minates. No address is given. Zendprograra is jumped to instead of 
being called. 
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